(include "class/fixeds/class.inc")

(def-class 'reals 'fixeds)
(dec-method :vtable 'class/reals/vtable)
(dec-method :create 'class/reals/create)

(dec-method :vcreate 'class/reals/create :override)
(dec-method :velement 'class/real/create :override)

(dec-method :add 'class/reals/add :override)
(dec-method :sub 'class/reals/sub :override)
(dec-method :mul 'class/reals/mul :override)
(dec-method :div 'class/reals/div :override)
(dec-method :mod 'class/reals/mod :override)
(dec-method :abs 'class/reals/abs :override)
(dec-method :sum 'class/reals/sum :override)
(dec-method :scale 'class/reals/scale :override)
(dec-method :frac 'class/reals/frac :override)
(dec-method :floor 'class/reals/floor :override)

(def-struct 'reals 'fixeds)
(def-struct-end)
